﻿Imports BUS
Imports DTO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim bus As New ChiNhanhBUS()

        'Dim ds As New List(Of ChiNhanhDTO)()
        'ds = bus.LayDSChiNhanh()
        'LookUpEdit1.Properties.DataSource = ds
        'LookUpEdit1.Properties.DisplayMember = "Tenchinhanh"
        'LookUpEdit1.Properties.ValueMember = "Machinhanh"
        'LookUpEdit1.SelectionStart = 0
        'LookUpEdit1.Properties.AutoSearchColumnIndex = 0
        'LookUpEdit1.DataBindings.Add("EditValue", LookUpEdit1.Properties.DataSource, "TenChiNhanh")
        'Dim a As Integer = Integer.Parse(LookUpEdit1.EditValue)
    End Sub

    Private Sub LookUpEdit1_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Dim a As Integer = LookUpEdit1.EditValue
    End Sub

    Private Sub btnthu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btnfrmthemnhanvien_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmthemnhanvien.ItemClick
        Dim fr As frmthemnhanvien = New frmthemnhanvien()
        fr.Show()
    End Sub

    Private Sub btnfrmlapthedocgia_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmlapthedocgia.ItemClick
        Dim fr As New frmlapthedocgia()
        fr.ShowDialog()
    End Sub

    Private Sub btnfrmtiepnhansach_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
        Dim fr As New frmtiepnhansach()
        fr.Show()
    End Sub

    Private Sub btnfrmthembangcap_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmthembangcap.ItemClick
        Dim fr As New frmthembangcap()
        fr.Show()
    End Sub

    Private Sub btnfrmthembophan_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmthembophan.ItemClick
        Dim fr As New frmthembophan()
        fr.Show()
    End Sub

    Private Sub btnfrmthemchucvu_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmthemchucvu.ItemClick
        Dim fr As New frmthemchucvu()
        fr.Show()
    End Sub

    Private Sub btnfrmthemloaisach_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
        Dim fr As New frmthemloaisach()
        fr.Show()
    End Sub

    Private Sub btnfrmthemlydothanhlysach_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
        Dim fr As New frmthemlydothanhlysach()
        fr.Show()
    End Sub

    Private Sub btncapnhatbangcap_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btncapnhatbangcap.ItemClick
        Dim frm As New frmcapnhatbangcap()
        frm.Show()
    End Sub

    Private Sub btncapnhatnhanvien_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btncapnhatnhanvien.ItemClick
        Dim frm As New frmcapnhatnhanvien()
        frm.Show()
    End Sub

    Private Sub btntracuusach_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btntracuusach.ItemClick
        Dim frm As New frmtracuusach()
        frm.Show()
    End Sub

    Private Sub btnfrmcapnhatbophan_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmcapnhatbophan.ItemClick
        Dim frm As New frmcapnhatbophan()
        frm.Show()
    End Sub

    Private Sub btnfrmcapnhatchucvu_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnfrmcapnhatchucvu.ItemClick
        Dim frm As New frmcapnhatchucvu()
        frm.Show()
    End Sub

    Private Sub BarButtonItem2_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        Dim fr As New frmthemloaidocgia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem12_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick

    End Sub

    Private Sub BarButtonItem20_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
        Dim fr As New frmcapnhatloaidocgia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem21_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem21.ItemClick
        Dim fr As New frmcapnhatthedocgia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem8_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
        Dim fr As New frmphieuthutienphat()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem13_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
        Dim fr As New frmtiepnhansach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem3_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)

    End Sub

    Private Sub BarButtonItem10_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
        BarButtonItem10.Glyph = Ripbon_VB.My.Resources.Resources.thanhlysach_2
        Dim frm As New frmThanhLySach()
        frm.ShowDialog()
    End Sub

    Private Sub BarButtonItem19_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
        Dim fr As New frmthemnhasanxuat()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem27_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
        Dim fr As New frmthemloaisach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem31_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem31.ItemClick
        Dim fr As New frmthemtacgia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem1_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Dim fr As New frmthemlydothanhlysach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem9_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
        Dim fr As New frmcapnhatnhasanxuat()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem18_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
        Dim fr As New frmcapnhatloaisach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem34_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem34.ItemClick
        Dim fr As New frmcapnhattacgia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem35_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem35.ItemClick
        Dim fr As New frmcapnhatlydothanhlysach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem3_ItemClick_1(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
        Dim fr As New frmcapnhatsach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem32_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem32.ItemClick
        Dim fr As New frmMuonSach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem11_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
        Dim fr As New frmGhiNhanMatSach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem33_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem33.ItemClick
        Dim fr As New frmTraSach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem28_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
        Dim fr As New frmtracuudocgia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem14_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
        Dim fr As New frmthongketheotheloai()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem15_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
        Dim fr As New frmThongKeTraTre()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem22_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
        Dim fr As New frmThongKeDocGiaNoTienPhat()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem23_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
        Dim fr As New frmLuuThongTinDocGia()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem16_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
        Dim fr As New frmluuthongtinsach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem29_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem29.ItemClick
        Dim fr As New frmtracuunhanvien()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem24_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
        Dim fr As New frmLayThongTinDocGiaTuFileExcel()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem17_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
        Dim fr As New frmlaythongtinsach()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem37_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem37.ItemClick
        Dim fr As frmthemnhanvien = New frmthemnhanvien()
        fr.Show()
    End Sub

    Private Sub BarButtonItem38_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem38.ItemClick
        Dim fr As New frmthemchucvu()
        fr.Show()
    End Sub

    Private Sub BarButtonItem39_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem39.ItemClick
        Dim fr As New frmthembangcap()
        fr.Show()
    End Sub

    Private Sub BarButtonItem43_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem43.ItemClick
        Dim frm As New frmcapnhatnhanvien()
        frm.Show()
    End Sub

    Private Sub BarButtonItem40_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem40.ItemClick
        Dim frm As New frmcapnhatbangcap()
        frm.Show()
    End Sub

    Private Sub BarButtonItem41_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem41.ItemClick
        Dim frm As New frmcapnhatchucvu()
        frm.Show()
    End Sub

    Private Sub BarButtonItem42_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem42.ItemClick
        Dim frm As New frmcapnhatbophan()
        frm.Show()
    End Sub

    Private Sub BarButtonItem44_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem44.ItemClick

    End Sub

    Private Sub BarButtonItem45_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem45.ItemClick

    End Sub

    Private Sub BarButtonItem26_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
        Dim fr As New frmCapNhatThamSo()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem48_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem48.ItemClick
        Dim fr As New frmthembophan()
        fr.ShowDialog()
    End Sub

    Private Sub BarButtonItem10_DownChanged(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.DownChanged

    End Sub

    Private Sub BarButtonItem10_ItemPress(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemPress
        BarButtonItem10.Glyph = Ripbon_VB.My.Resources.Resources.thanhlysach_1
        '("../Ripbon VB/image/thanhlysach_2.jpg")
    End Sub
End Class
